Shareware Super Platinum 8/Shareware Super Platinum 8.iso/mac/WIN_VB/SHAD20.ZIP;1/GENERAPP.FRM

Visual Basic Form | 1994-03-16 | 7.7 KB | 259 lines

VERSION 2.00
Begin Form Shadbx_Form
   Caption         =   "Shadowed Color Box Test"
   ClientHeight    =   5325
   ClientLeft      =   1290
   ClientTop       =   2085
   ClientWidth     =   5085
   ClipControls    =   0   'False
   Height          =   6015
   Left            =   1230
   LinkTopic       =   "Form1"
   ScaleHeight     =   5325
   ScaleWidth      =   5085
   Top             =   1455
   Width           =   5205
   Begin SHADBX ShadBx1
      Prop16          =   "Click for About Box"
      BackColor       =   &H00FFFF80&
      Left            =   2400
      MaxWidth        =   150
      Top             =   3600
      WindowLeft      =   0
      WindowPosition  =   0   'False
      WindowTop       =   0
   End
   Begin ComboBox Combo1
      Height          =   300
      Left            =   240
      TabIndex        =   14
      Text            =   "Combo1"
      Top             =   2880
      Width           =   2175
   End
   Begin CommandButton BTN_Dialog
      Caption         =   "Dialog"
      Height          =   375
      Left            =   2640
      TabIndex        =   13
      Top             =   240
      Width           =   975
   End
   Begin OptionButton Option3
      Caption         =   "Maybe option"
      Height          =   255
      Left            =   1200
      TabIndex        =   12
      Top             =   4320
      Width           =   1575
   End
   Begin PictureBox Picture1
      AutoSize        =   -1  'True
      ClipControls    =   0   'False
      Height          =   360
      Left            =   1080
      Picture         =   GENERAPP.FRX:0000
      ScaleHeight     =   330
      ScaleWidth      =   360
      TabIndex        =   11
      Top             =   720
      Width           =   390
   End
   Begin CheckBox Check2
      Caption         =   "That"
      Height          =   255
      Left            =   1200
      TabIndex        =   10
      Top             =   3840
      Width           =   1200
   End
   Begin CheckBox Check1
      Caption         =   "This"
      Height          =   255
      Left            =   1200
      TabIndex        =   9
      Top             =   3360
      Width           =   1200
   End
   Begin Frame Frame1
      Caption         =   "Do it now"
      Height          =   1215
      Left            =   3000
      TabIndex        =   6
      Top             =   3120
      Width           =   1695
      Begin OptionButton Option2
         Caption         =   "No"
         Height          =   255
         Left            =   240
         TabIndex        =   8
         Top             =   720
         Width           =   1000
      End
      Begin OptionButton Option1
         Caption         =   "Yes"
         Height          =   255
         Left            =   240
         TabIndex        =   7
         Top             =   360
         Width           =   1000
      End
   End
   Begin TextBox TXT_Result
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Text            =   "Status output"
      Top             =   4800
      Width           =   4815
   End
   Begin TextBox TXT_KeyString
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Text            =   "This is a popup message to display in the window. The message can be of long length, or it can be short."
      Top             =   1440
      Width           =   4815
   End
   Begin CommandButton BTN_Exit
      Caption         =   "Exit"
      Height          =   375
      Left            =   3840
      TabIndex        =   1
      Top             =   240
      Width           =   1095
   End
   Begin TextBox TXT_SearchString
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Text            =   "Dawg"
      Top             =   2280
      Width           =   4815
   End
   Begin Label Label2
      Caption         =   "Click Bell for popup window information"
      Height          =   495
      Left            =   480
      TabIndex        =   15
      Top             =   120
      Width           =   1815
   End
   Begin Label Label3
      Alignment       =   2  'Center
      Caption         =   "Search String"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   1920
      Width           =   4815
   End
   Begin Label Label1
      Alignment       =   2  'Center
      Caption         =   "Key String"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   1080
      Width           =   4815
   End
   Begin Menu nmu_File
      Caption         =   "&File"
      Begin Menu mnu_Exit
         Caption         =   "&Exit"
      End
   End
   Begin Menu mnu_Edit
      Caption         =   "&Edit"
      Begin Menu mnu_Cut
         Caption         =   "Cu&t"
      End
      Begin Menu mnu_Copy
         Caption         =   "&Copy"
      End
      Begin Menu mnu_Paste
         Caption         =   "&Paste"
      End
      Begin Menu mnu_submenu
         Caption         =   "SubMenu"
         Begin Menu mnu_submenu1
            Caption         =   "SubMenu 1"
         End
         Begin Menu mnu_submenu2
            Caption         =   "SubMenu 2"
         End
      End
   End
   Begin Menu mnu_help
      Caption         =   "&Help"
      Begin Menu mnu_HelpBallons
         Caption         =   "Help &Shadow Box"
      End
   End
Option Explicit
Sub BTN_Dialog_Click ()
    Dialog.Show
End Sub
Sub BTN_Exit_Click ()
    mnu_Exit_Click
End Sub
Sub Form_Load ()
    If Me.WindowState = 0 Then
        Me.Top = 0
        Me.Left = 0
    End If
End Sub
Sub Form_Resize ()
    ' don't do resizing for the demo
    If Me.WindowState = 0 Then
        Me.Height = 6015
        Me.Width = 5175
    End If
End Sub
Sub mnu_Exit_Click ()
    End
End Sub
Sub mnu_HelpBallons_Click ()
    ' initial help text string
    ShadBx1.MessageText = TXT_KeyString.Text
End Sub
Sub Picture1_Click ()
Dim Msg As String
Dim CRLF As String
Dim QBCBack As Long
    CRLF = Chr$(13) + Chr$(10)
    Msg = "You have just clicked on the Bell Picture." + CRLF + CRLF
    Msg = Msg + "Fill the popup window with the advisory text." + CRLF + CRLF
    Msg = Msg + "The image could contain a hotspot that brings up the popup window when the spot is hit."
    ' store original color
    QBCBack = ShadBx1.BackColor
    ' put up the first shadow box
    ShadBx1.MessageText = Msg
    '
    '
    ' put up the second shadow box
    ' set new BackColor
    ShadBx1.BackColor = QBColor(14)
    ShadBx1.MessageText = "A short message."
    ' return original backcolor
    ShadBx1.BackColor = QBCBack
End Sub
Sub ShadBx1_ClearNotify ()
    ' Shadow box Notification event
    ' This event notifies the VB app when the shadow box
    ' is removed from the screen.
    ' You can use this ClearNotify event to reset a flag that
    '   was set when the shadow box is brought onscreen.
    ' The flag can be used as a signal that a shadow box
    '   is present to the rest of the VB application.
    ' Using this flag can eliminate unwanted screen interaction
    '   preventing interference with an active shadow box.
    Debug.Print "ShadowBox Removed"
End Sub